Shareware Grab Bag/Shareware Grab Bag.iso/090/nfl_piks.bas

GW-BASIC | 1984-04-24 | 4.5 KB | 169 lines

100  KEY OFF
110  CLS
120  ' FOOTBALL PICKS BY DAVID BRONSON.
130  ' MODIFIED FOR IBM-PC BY CHUCK HARRINGTON 2/28/83
140  '
150  '
160  'SEE POPLUAR COMPUTING FOR JANUARY, 1982 P. 74.
170  '
180  PRINT
190  PRINT "THIS PROGRAM WILL LET YOU PICK THE POINT SPREAD"
200  PRINT "OF ANY GIVEN FOOTBALL GAME BETWEEN THE 29 TEAMS OF"
210  PRINT "THE NFL.  TO PERFORM RELIABLY, THE PROGRAM"
220  PRINT "NEEDS THE RESULTS OF AT LEAST THE FIRST FOUR WEEKS"
230  PRINT "GAMES. THE MORE RESULTS YOU GIVE THE PROGRAM, THE BETTER"
240  PRINT "IT'S PREDICTIONS WILL BE."
250  PRINT:PRINT: INPUT "PRESS <ENTER> TO CONTINUE"; R$
260  CLS
270  PRINT "SELECT AN OPTION BY PRESSING THE APPROPRIATE KEY..."
280  PRINT:PRINT:PRINT
290  PRINT "<S>ET UP THE SYSTEM."
300  PRINT TAB(10) "DO THIS ONLY ONCE PER SEASON AT FIRST USE."
310  PRINT
320  PRINT "<U>PDATE THE TEAM FILE - DO THIS AFTER EACH WEEKS' RESULTS ARE IN."
330  PRINT
340  PRINT "<P>REDICT RESULTS OF A GAME."
350  PRINT
360  PRINT "<R>EPORT THE CURRENT STATISTICS."
370  PRINT
380  PRINT "<Q>UIT."
390  A$=INKEY$: IF A$="" THEN 390
400  IF A$ = "S" THEN 480
410  IF A$ = "U" THEN 760
420  IF A$ = "P" THEN 1170
430  IF A$ = "R" THEN 1550
440  IF A$ = "Q" THEN END
450  GOTO 390
460  FOR I = 1 TO 1000: NEXT I
470  RETURN
480  CLS: PRINT "SET UP SYSTEM: DO NOT PROCEED IF YOU HAVE ALREADY"
490  PRINT "DONE THIS ONCE THIS SEASON, BECAUSE YOUR PREVIOUS"
500  PRINT "RESULTS WILL BE ERASED."
510  PRINT:PRINT "DO YOU REALLY WANT TO SET UP THE SYSTEM?";
520  INPUT " (Y OR N)";R$
530  IF R$= "Y" OR R$ = "y" THEN 540 ELSE 260
540  PRINT
550  PRINT "SETTING UP SYSTEM...STANDBY"
560  GOSUB 1750
570  FOR T = 1 TO 28
580  READ TM$
590  DM$=MKI$(0)
600  LSET T$=TM$: LSET O$=DM$: LSET D$=DM$: LSET PS$=DM$
610  LSET PG$=DM$: LSET G$=DM$: LSET W$=DM$
620  PUT #1,T
630  NEXT T
640  CLOSE #1
650  PRINT
660  PRINT "SET-UP COMPLETE."
670  INPUT "PRESS <ENTER> TO CONTINUE";R$
680  GOTO 260
690  DATA ATLANTA,GREEN BAY,NEW YOUR (GIANTS),CHICAGO
700  DATA LOS ANGELES,PHILADELPHIA,DALLAS,MINNESOTA
710  DATA SAN FRANSISCO,DETROIT,NEW ORLEANS, ST LOUIS
720  DATA TAMPA BAY,WASHINGTON,BALTIMORE,DENVER
730  DATA NEW ENGLAND,BUFFALO,HOUSTON,NEW YORK (JETS)
740  DATA CINCINNATI,KANSAS CITY,OAKLAND,CLEVELAND
750  DATA MIAMI,PITTSBURGH,SAN DIEGO,SEATTLE
760  CLS:PRINT "UPDATE STATISTICS OPTION"
770  PRINT
780  INPUT "HOW MANY WEEKS HAVE BEEN PLAYED IN THE REGULAR SEASON";G
790  IF G<1 THEN 260
800  GOSUB 1750:  'OPEN STATS FILE.
810  GOSUB 1100: 'DISPLAY LIST OF TEAMS.
820  PRINT
830  INPUT "TYPE THE NUMBER OF THE TEAM TO BE UPDATED (0 TO QUIT)...";R
840  IF R < 1 OR R> 28 THEN CLOSE #1: GOTO 260
850  CLS
860  GET #1,R
870  PRINT "TEAM:";TAB(30); T$
880  PRINT STRING$(50,"-")
890  PRINT "OFFENSIVE YARDS:";TAB(30);CVI(O$)
900  PRINT
910  INPUT "NEW INFO"; O1
920  PRINT
930  PRINT "DEFENSIVE YARDS:";TAB(30); CVI(D$)
940  PRINT
950  INPUT "NEW INFO";D1
960  PRINT
970  PRINT "POINTS SCORED:";TAB(30);CVI(PS$)
980  PRINT
990  INPUT "NEW INFO:";P1
1000  PRINT
1010  PRINT "POINTS GIVEN UP:";TAB(30);CVI(PG$)
1020  PRINT
1030  INPUT "NEW INFO";P2
1040  PRINT
1050  W=CVI(W$): IF P1>P2 THEN W=W+1
1060  LSET O$=MKI$(O1): LSET D$=MKI$(D1): LSET PS$=MKI$(P1)
1070  LSET PG$=MKI$(P2): LSET G$=MKI$(G): LSET W$=MKI$(W)
1080  PUT #1,R
1090  GOTO 810
1100  CLS: RESTORE
1110  FOR I=1 TO 27 STEP 2
1120  READ T1$,T2$
1130  PRINT I;"-";T1$;TAB(32);I+1;"-";T2$
1140  IF I=13 THEN PRINT STRING$(50,"-")
1150  NEXT I
1160  RETURN
1170  CLS:PRINT "PREDICT RESULTS OPTION"
1180  GOSUB 1750: 'OPEN STATS FILE
1190  GOSUB 1100: 'DISPLAY LIST OF TEAMS
1200  PRINT
1210  INPUT "ENTER HOME TEAM'S NUMBER (0 TO QUIT)";HT%
1220  PRINT
1230  IF HT%<1 OR HT%>28 THEN CLOSE #1: GOTO 260
1240  INPUT "ENTER VISITOR TEAM'S NUMBER (0 TO QUIT)";VT%
1250  IF VT%<1 OR VT%>28 THEN CLOSE #1: GOTO 260
1260  GET #1,HT%
1270  HT$=T$: HO=CVI(O$): HD=CVI(D$): HPS=CVI(PS$): HG=CVI(PG$): G=CVI(G$)
1280  CLS
1290  GET #1,VT%
1300  VT$=T$: VD=CVI(D$): VO=CVI(O$): VPS=CVI(PS$): VG=CVI(PG$)
1310  PRINT VT$; "AT ";HT$; "..."
1320  IF G=0 THEN PRINT:PRINT "NOT ENOUGH INFO.":CLOSE #1: GOTO 250
1330  TH=HO + VD: TV=VO+HD
1340  EHG=TH/(G*2):EVG=TV/(G*2)
1350  THP=EHG*7/100: TVP=EVG*7/100
1360  AHP=HPS+VG: AVP=VPS+HG
1370  HHP=AHP/(G*2): VX=AVP/(G*2)
1380  VF=(TVP+VX)/2: HF=(THP+HHP)/2
1390  VVC=(VO/100): VR=(VD/100)
1400  VX=VVC*7: VW=VR*7
1410  HX=(HO/100)*7: HR=(HD/100)*7
1420  VTC=VPS-VX: VQ=VG-VW
1430  HW=HPS-HX: HA=HG-HR
1440  HC=HW/G: VC=VTC/G
1450  HQ=HA/G: VQ=VQ/G
1460  HS=HF+HC-VQ: VS=VF+VC-HQ
1470  SP=VS-HS
1480  IF ABS(SP)<1 THEN 1540
1490  IF SP <-1 THEN WN$=HT$ ELSE WN$=VT$
1500  PRINT WN$; "BY";INT(ABS(SP)+0.5); "POINTS."
1510  PRINT: PRINT
1520  INPUT "PRESS <ENTER> TO CONTINUE";R$
1530  CLS: GOTO 1190
1540  PRINT VT$;"AT ";HT$;"IS TOO CLOSE TO CALL.": GOTO 1200
1550  CLS: PRINT "REPORTS OPTION"
1560  GOSUB 1750: 'OPEN STATS FILE
1570  FOR P=1 TO 4
1580  GOSUB 1680: ' PRINT HEADINGS
1590  FOR T=1 TO 7: 'SEVEN TEAMS PER PAGE
1600  GET #1,(P-1)*7 + T
1610  PRINT T$;TAB(22);CVI(G$);TAB(29);CVI(W$);
1620  PRINT TAB(35);CVI(O$);TAB(43);CVI(D$);
1630  PRINT TAB(51);CVI(PS$);TAB(57);CVI(PG$)
1640  PRINT
1650  NEXT T: INPUT "PRESS <ENTER> TO CONTINUE";R$
1660  NEXT P
1670  CLOSE #1: GOTO 260
1680  CLS: PRINT "TEAM";TAB(22);"GAMES";TAB(29);"WINS";
1690  PRINT TAB(35); "YDS";TAB(43);"YDS";
1700  PRINT TAB(51); "PTS";TAB(43); "PTS"
1710  PRINT TAB(35); "GAINED";TAB(43); "GIVEN";
1720  PRINT TAB(51);"WON"; TAB(57);"LOST"
1730  PRINT STRING$(64,"-")
1740  RETURN
1750  OPEN "R",1,"STATS"
1760  FIELD 1,20 AS T$,2 AS O$,2 AS D$,2 AS PS$,2 AS PG$,2 AS G$, 2 AS W$,96 AS ZZ$
1770  RETURN